home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / lib / tclX6.4c / dist / tkucbsrc / main.sed < prev    next >
Encoding:
Text File  |  1992-11-07  |  931 b   |  33 lines
  1. /#include "tkInt.h"/a\
  2. #define TK_EXTENDED\
  3. #ifdef TK_EXTENDED\
  4. #    include "tclExtend.h"\
  5.      Tcl_Interp *tk_mainInterp;  /* Need to process signals */\
  6. #endif
  7.  
  8. /^char initCmd/c\
  9. #ifdef TK_EXTENDED\
  10. char initCmd[] = "load wishx.tcl";\
  11. #else\
  12. char initCmd[] = "source $tk_library/wish.tcl";\
  13. #endif
  14.  
  15. /    interp = Tcl_CreateInterp();/c\
  16. #ifdef TK_EXTENDED\
  17.     tk_mainInterp = interp = Tcl_CreateExtendedInterp();\
  18. #else\
  19.     interp = Tcl_CreateInterp();\
  20. #endif
  21.  
  22. /result = Tcl_Eval(interp, initCmd/i\
  23. #ifdef TK_EXTENDED\
  24.     tclAppName     = "Wish";\
  25.     tclAppLongname = "Wish - Tk Shell";\
  26.     tclAppVersion  = TK_VERSION;\
  27.     Tcl_ShellEnvInit (interp, TCLSH_ABORT_STARTUP_ERR,\
  28.                       name,\
  29.                       0, NULL,           /* argv var already set  */\
  30.                       fileName == NULL,  /* interactive?          */\
  31.                       NULL);             /* Standard default file */\
  32. #endif
  33.